(vc-find-file-hook): Failsafe if the backend's `registered' function burps.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0d97b7b6ea5cd13af709266ec69b1f67a83485ec..dc0c05462c8bea1726995f3922056c0a1e316d1a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,7 @@
        * vc-bzr.el: New file (copied from the trunk).
 
        * vc-hooks.el (vc-handled-backends): Add BZR.
+       (vc-find-file-hook): Failsafe if the backend's `registered' function burps.
 
        * server.el (server-window): Add switch-to-buffer-other-frame option.
 

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index 3afc3468e0277abf184f4ef2c3931950492c8b08..00c7f09f345d59924a919d98a4b42090cfe0f84b 100644 (file)
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -787,7 +787,7 @@ current, and kill the buffer that visits the link."
   (when buffer-file-name
     (vc-file-clearprops buffer-file-name)
     (cond
-     ((vc-backend buffer-file-name)
+     ((ignore-errors (vc-backend buffer-file-name))
       ;; Compute the state and put it in the modeline.
       (vc-mode-line buffer-file-name)
       (unless vc-make-backup-files